home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
013
/
sp.bas
< prev
next >
Wrap
BASIC Source File
|
1995-03-17
|
468b
|
20 lines
0 for x=1 to 5 step 2
1 if x=1 or x=2 then x$="right"
2 if x=3 or x=4 then x$="left"
3 if x=5 then x$="CENTER"
10 a%(0)=200:rem express 65-320
11 a%(1)=0:rem hum/mon 0/1U
12 a%(2)=165:rem speed 1-400
13 a%(3)=0:rem saprano/falceto
14 a%(4)=23400:rem freq 15000-28000
15 a%(5)=64:rem vol. 1-64
16 a%(6)=x
17 a%(7)=0
18 a%(8)=0
20 goto 80
80 a$=translate$(x$)
90 i%=narrate(a$,a%())
95 ?x
100 next x
110 goto 0